declare
 no number(4);
 a_sal number(7);
  b_sal number(7);
 v_sta emp.stars%type:= ;
  cursor sal_emp is
  select empno , sal
  from emp;
 begin
  open sal_emp;
 loop
  fetch sal_emp into no , a_sal;
 exit when sal_emp%notfound;
 if  (a_sal =0 or a_sal=null) then
 update emp
 set stars='*'
 where empno=no;
 else
 b_sal:=(a_sal-50)/100;
for i in 1..b_sal loop
 v_sta:=v_sta||'*';
end loop;
update emp
 set stars=v_sta
 where empno=no;
 end if;
v_sta:=;
 end loop;
 close sal_emp;
  end;
